home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
fd200.zip
/
MAKIMAGE.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1987-04-08
|
958b
|
39 lines
program makimage;
var screen1 : array[0..4095] of byte;
screen2 : array[0..4095] of byte;
video : array[0..3999] of byte ABSOLUTE $B800:0000;
inputfile : text;
outputfile : file;
line : string[80];
i : integer;
begin
assign(inputfile,'FDSCRN1');
assign(outputfile,'FIELDDAY.IMG');
ClrScr;
reset(inputfile);
rewrite(outputfile);
i := 0;
while (NOT Eof(inputfile)) do
begin
i := i + 1;
readln(inputfile,line);
if i <> 25 then writeln(line) else write(line);
end;
move(video, screen1, 4000);
blockwrite(outputfile, screen1, 32);
ClrScr;
close(inputfile);
assign(inputfile,'FDSCRN2');
reset(inputfile);
i := 0;
while (NOT Eof(inputfile)) do
begin
i := i + 1;
readln(inputfile,line);
if i <> 25 then writeln(line) else write(line);
end;
move (video,screen2,4000);
blockwrite(outputfile,screen2,32);
close(outputfile);
end.